home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gigarom 1
/
Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso
/
FILES
/
HYP
/
C-D
/
DeveloperStax.cpt
/
Developer Stack 1.1
/
background_16981.txt
< prev
next >
Wrap
Text File
|
1989-02-26
|
6KB
|
275 lines
-- background: 16981 from stack: in.1
-- bmap block id: 17850
-- flags: 4000
-- background id: 0
-- name: Quick Ref
----- HyperTalk script -----
on opencard
put (the number of this card - the number of first card of this background+1) into field "PageNumber"
end opencard
-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=56 top=23 right=55 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Name
-- part 2 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=74 right=117 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
visual iris open to gray
visual iris close to black
visual iris open to gray
visual iris close
go background information
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=119 right=162 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
visual barn door close to black
visual barn door open
pop card
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=164 right=207 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
go to first card of home
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=209 right=252 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
domenu "open stack..."
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=254 right=297 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Launch Application
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
visual venetian blinds to gray
visual venetian blinds to black
visual venetian blinds to gray
visual venetian blinds
go to background "Mini Hyperstation"
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=299 right=342 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 21786 / 21786
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus On
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
If the short name of the target is "Menus On" then
set the name of the target to "Menus Off"
show menubar
else
set the name of the target to "Menus On"
hide menubar
end if
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=228 top=306 right=331 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
visual effect wipe right
go to previous card
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=280 top=306 right=331 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
visual effect wipe left
go to next card
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=456 top=301 right=329 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
visual effect iris close to inverse
go first card
end mouseUp
-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=255 top=311 right=327 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PageNumber
-- part 12 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=55 top=65 right=295 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Reference
-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=98 top=304 right=326 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find...
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
ask "What do you want to find?"
if it is empty then exit mouseup
find it in field reference
end mouseUp